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1 



Abstract 



This program Is fnade up of 16 subtests to cheeK out the 
power fall on.th« 11/45, The 2 msec, power down and power 
UP time Ts cHecked on each power fall, A constant has to be 
changed fop use m BIPOLAR or MOS memories, jnltaMy Power 
falls are tried In all prosessop modes then error conditions 
like red zonei yellow zonei time out, and odd address In all 
the processor modes', F|na||y a power fall is done with 
memory management aborts occurlng and a memopy volItll'Tty 
test Is run on all memopy (up to 124K), 



PDPli/45 standard compyter with yp to 124K of memoryj 



2. 



Reoul rements 



2,1 



EquI oment 



2,2 



Storage 



Program Storage • the routines use memory • 4100 



2,3 



Pre I I ml nary programs 



A|l processor diagnostics 



3 



Loading procedure 



Use standard procedure for A6S tapes 



4 



Starting Proeedype 



4,1 



Control switch settings 



See 5,1,1 



4,2 



Starting address 

Load Address 200 and Start, 



Descr ! pt ! on 
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5, 



OpePating Procedure 

Load Address 200 and START, A message will be ^ypea wn 
Is the naii« of the programi the size of memoryi KTHC If It 



S 

ex 
to 



typed which 

Istsi and punning Instructions, Turn the DISPLAY switch 
DISPLAY REGISTER and power down then up when the test 
number appears jn the Ijghts, Do thTs for eaoh test until a 
bell rings and/or the count recycles to 1| 
executed onee except 16 which runs 8 
continuing, SW14 loops on the current 
Inhibits be| | at the end, 



Each subtest Is 
times before 
test and *>Wi0 



5al 



Operational switch settings 



At SA 200 . all switches down will run through each test 
and HALT on errors SW14 should be used to loop on the 
current test, 



Switch settings are; 



sw<14> a 1 
sw<10> « 1 



I « • f I 



scope loop 
inhibit be 



on pass ccflPlete 



5,2 
5,2,1 



Subroutine Abstracts 
POWDWN and POWUP 

These ooytlnes are use to save and restore vital registers 
and test the time a| lowed for power fall by the processor, 
A SOB loop |s used to check the timing, LOG 1000 contains 
the timing factor for each memory, It Is set Initially for 



core and should be changed If p 4K is 
Control Is returned to the orogram v 
power fall return address is put In R3, 



MOS or BIPOLAR, 
JMP (3) 90 the 
ILLUP and ILLDWN 



are use for reporting not enough time to power down and up*, 



Errors 



6,1 



Error printout 
None 



6|2 



Error MALTs 

The program wl!| HALT on error, The DISPLAY switch should 
be turned to the DATA PATHS position for the falling data, 
R0I which Is displayed on a HALT, contains the bad data or 
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bad addfiss (see listing) jn mnk cf tHe tests, 

If an efpor eccgps |n t«st 16 and It Is abov« 28K, the «lata 
can be eMai^Ined by turning tHe MODE swlteh to KERNAt, 1$ Toad 
addpesa with the address In R0 and examine, Te caleyfate 
the falling address, examine KIPAR6 (772354) and use that 
for the offset to the address fn R0| To do thjsi move 
KiPAR6<iis0> Into bits <a,756> qf a zeroed word and add 
R0<12|0> to It, This Is the physical address of the bad 
data. 

If the processor HAut's at IllUPi the power down routine did 
not have enough t|me to complete. If It HALT'S at ILLOWNi 
the processor powered dpwn before the up routine completed, 
In both oasesi 2 msec fs the minimum time allowed by the 
processor, The program must be pastarted at 200 after these 
errors, LOC 1000 Initially contains the timing factor for 
core memory. This must be changed to f|t the type of memory 
you have from » 4K, The address of the power failed 
routine Is In ERROR, 



Do not power down the MQS cr BIPOLAR, Just t^e processor', 



6,3 



Error recovery 



H|t continue or Restart at 200 



Rest r I ct I ons 



M I see I I aneous 



8|1 



Execution time 



N/A 



8,2 



Stack Pointer 



Stack Is in| tai |y set to 500 
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DCKBPB.Pll 



1 




.TITLE 


MAINOEC- 


11-DCKBP 


-B 11/45 POWER FAIL 


2 




(COPYRIGHT 1972i 


DIGITAL 


EOUlPMENT CORP.i MAYNARD, 


3 
4 
6 




(PROGRAM BY BOS 


BRAIN 




6 
7 
S 




1 SWITCH 




USE 


V 


100000 


SW15« 


100000 






X0 


^40000 


SW14« 


40000 




ILOOP ON TEST 


n 


020000 


SW13» 


20000 






12 


010000 


SW12« 


10000 






13 


004000 


SWil« 


4000 






14 


002000 


SW10« 


2000 




10 - BELL ON PASS COMPLETE 


15 










11 - BELL ON ERROR 


16 


001000 


SW9« 


1000 






17 


000400 


SWSa 


400 






18 












19 












20 


000001 


N« 








21 


104400 


SCOPE" 


TRAP 






22 


104000 


HLt» 


EMT 






23 


000004 


TYPE" 


lOT 






24 


177776 


PSi 


177776 






2S 


177570 


SWRi 


177570 






26 


177570 


DISPLAY»SWR 






27 


000007 


BELL" 


7 






28 


000000 


R0B 


X0 






29 


000001 


Rl» 


XI 






30 


000002 


R2« 


X2 






31 


000003 


R3» 


X3 






32 


000004 


R4c 


X4 






33 


000005 


R5« 


X5 






34 


000005 


TTY" 


X5 






35 


000006 


SPi 


X6 






36 


000007 


PC" 


X7 






37 


000240 


SCOPE" 


NOP 






36 












39 


000000 


, « 







ITRAP CATCHER FRQH 


40 












41 


000200 




200 






42 













43 000200 000137 001002 JMP •#BEGJN lJUHP TQ BEGINING ADDRESS OF PROGRAM 
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DCKSPB.PH SETUP AND SIZING SOUTINES 



44 

4S 

4« 001000 
47 

48 001002 

49 001006 

50 001014 
SX 001022 

52 001030 

53 001036 

54 001042 

55 001046 

56 001052 

57 001060 

58 001064 

59 001072 

60 001100 

61 001102 

62 001106 

63 001112 

64 001116 
65 

66 001120 

67 001126 

68 001132 

69 001134 

70 001140 

71 001142 

72 001144 

73 001150 
74 

75 001152 

76 001154 

77 001160 

78 001166 

79 001172 

80 001176 

81 001200 
S2 001232 
B3 001254 

84 001256 
89 001262 

86 001276 

87 001302 

85 001304 

89 001324 

90 001324 

91 001376 



001000 

002000 

012706 
012737 
012737 
312777 
012737 
005777 
004767 
005277 
012737 
005737 
062777 
022777 
003367 
017701 
072127 
042701 
00041$ 

012737 
012702 
009001 
062702 
009201 
005712 
022702 
001371 

009301 
0101*7 
012737 
012706 
005227 
001122 
000004 
000004 
010105 
004767 
000004 
022701 
100010 
000004 

000004 
000004 







1 ' 


1000 










FACTOR! 


2000 




|CONE*2000 1 B [Pot AR*3300 ImOS>1700 


000500 




BE61NI 


MOV 


«5>0i SP 


STACK AT 500 


004172 


000020 




MQV 


#IOTSi*«20 


iSET I5T VECTOR 


000006 


090016 




MOV 


#6, •#16 


(SET TRACE TRAP RETURN 


003512 


002640 




HOV 


*POWBWN| SOVEC 


(SET UP POWER OOWN VECTOR 


001120 


000004 




MOV 


tOOCORE 1 •*4 


(SET FOR TIMEOUT 


002642 






TST 


9SR0 


(CHECK FOR KTll 


003056 




DOSEGI 


JSR 


PCiHAP 


(SETUP MEMORY MANAGEMENT REGISTERS 


002632 




INC 


• SR0 


(TURN ON MEMORY MANAGEMENT 


001102 


000004 




HOV 


#21 1 )>#4 


(SET TIMEOUT ADDRESS FOR C8RE CAwCyUATiONS 


157776 




ISl 


TST 


##157776 


(TRAP ON NON EX MEM 


000200 


002620 




ADR 


#Z00i#KIPAR6 


(GO TO NEXT BANK 


007600 


002612 




CMP 


#7600rl>K!PAR6 


(CAST ONE? 








8GT 


1* 


(TRY NEXT 


002604 




2S| 


MOV 


•KIPAH6,R1 


(SAVE ASR6 IN Rl 


177771 






ASH 


«»7,R1 


(PUT INTO POSITION 


177740 






BIC 


#1777401 Rl 


(CLEAR JUNK 








BR 


TYPEIT 


(TYPE THE NAME 


001152 


000004 


OOCOREl 


MOV 


#TYPE I Ti •#4 


(SET FOR NEM 


017776 






MQV 


#17776|R2 


(SET UP ADDRESS 






CI.R 


Rl 


(SET UP BANK COUNT 


020000 




ISl 


ADD 


#20000|R2 


(MOVE TO NEXT BANK 








INC 


Rl 


(INC THE BANK COUNT 








TST 


(2) 


( TIMEOUT? 


177776 






CMP 


#177776iR2 


(END? 






SNE 


IS 


(tOOP IF NOT AT THE END 






TYPEITI 


DEC 


Rl 


(DROP BACK 


002520 






MQV 


RliLIMIT 


(SAVE THE TOP OF CORE 


000006 


000004 




MOV 


#6|«l#4 


(SET FOR NEM' 


000500 






MOV 


#500, SP 


(CLEAR STACK ••500»« 


177777 






INC 


#•1 


(TYPE The OPTION ONLY ONCE 






BNE 


TSTl 


(FIRST TIME? 


001204 






TYPE 


( 1*2 


J ,ASni? <15><12>"MAINDEC«11"DC'<BP»B" 


001236 






TYPE 


. .*2 


(jASCIB <15><12><12>''BANKS » " 






HOV 


Rli TTY 


(TYPE Rl IN OCTAL 


002470 






JSR 


PCiPRJNTS 


(AND SUPRESS LEADING ZERO'S 


001266 






TYPE 


M*2 


( , ASCIZ " EXIST" 


Ii3 K) v iu u 








#6| Rl 


(WHICH OPTION? 






BPU 


MES 


(SKIP IF NO KTllC 


001310 






TYPE 


• 1*2 


( .ASCIH " WITH KTllC" 




ME8I 






(, ASCIZ <15><12><12>"INTERRUPT THE POWER AFTER THE TEST" 


001330 






TYPE 


M*2 


001402 






TYPE 


..*Z 


(, ASCIH " NUMBER APPEARS IN THE DISPLAY"<15><12> 



MA JNDEC-ll-OCKBP-B 



DCKBPB.Pll 


TSTi 


SIMPLE. 


92 








93 








94 








95 


001444 






96 


001444 


012737 


000001 


97 


001452 


305037 


177776 


96 


001456 


012703 


001464 


99 


001462 


000001 




100 


001464 


010600 




102 


001472 


001401 




103 


001474 


000000 




104 


001476 


012706 


000500 


105 


001502 


013700 


000474 


106 


001506 


022700 


001464 


107 


001512 


001401 




108 


001514 


000000 




109 


001516 


013700 


000476 


110 


001522 


022700 


000000 


111 


001526 


001401 




112 


001530 


000000 




113 


001532 






114 


001532 


032737 


040000 


115 


001540 


001341 




116 








117 








118 








119 








120 








121 


001542 






122 


001542 


012737 


000002 


123 


001550 


012737 


040000 


124 


001556 


012703 


001564 


125 


001562 


000001 




126 


001564 


B12706* 


000500 


127 


001570 


013700 


000474 


128 


001574 


022700 


001564 


129 


001600 


001401 




130 


001602 


000000 




131 


001604 


013700 


000476 


132 


001610 


022700 


^40000 


133 


001614 


001401 




134 


001616 


000000 




135 


001620 






136 


001620 


232737 




137 


301626 


201345 
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ITEST 1 



2S| 



177570 
177776 



ITEST 2 
(••••«* 

TSt2l 



2$i 



SIMPLE DoWN/UP TEST (KERNAL) 



MQV 


«ltD#DISPLAV 


ISET TEST NUMBER 


clR 


• #PS 


(SET KERNAL MODE 


MQV 


#ZJ,R3 


(SET POWER UP RETURN 


WAIT 




(WAIT FOR THE POWER FAIL 


MOV 


SP,R0 


(GET SP 


Cnr 


» 4 7 ^ 1 fi w 


(tHtCK 


BEO 


,*4 


(SKIP IF OK 


HALT 




)SP NOr 474 


MOV 


#500, SP 


(RESET SP 


HOV 


••474, R0 


(GET RETURN ADDRESS 


CMP 


#2S,R0 


(CHECK ADDRESS 


BEO 


1*4 


(SKIP IF OK 


HALT 




(ADDRESS ON STACK IS WRONG 


MOV 


•#476, R0 


(GET DUD PS 


CMP 


«0,R0 


(CHECK OLD PS 


BEO 


1*4 


(SKIP IF OK 


HALT 




(OLD PS IS WRONG 


BIT 


«SW14,*«SWq 


(LOOP ON TEST? 


BNE 


TSTl 


(LOOo TO TSTl 




SIMPLE DOWN/UP 


TEST (SUPERVISOR) 


MQV 


«2,»«0ISPLAY 


(SET TEST NUMBER 


MOV 


#40000, •«?$ 


(SET SUPERVISOR MODE 


MOV 


«2S,R3 


(SET POWER UP RETURN 


WAIT 




(WAIT FOR THE POWER FAIL 


MOV 


#500, SP 


(RESFT SP 


MOV 


•#474, R0 


(GET RETURN ADDRESS 


CMP 


#2S,R0 


(CHECK ADDRESS 


BEQ 


.*« 


(SKIP IF OK 


HALT 




(ADDRESS ON STACK IS WRONG 


MQV 


•#476, R0 


(GET OLD PS 


CMP 


#400^0, R0 


(CHECK OLD PS 


BEO 


1*4 


(SKIP IF OK 


HALT 




(OLD PS IS WRONG 


BIT 


«SW14,*#SWP 


(LOOP ON TEST? 


BNE 


TST2 


(LOOP TO TSTZ 



MAINDEC-H-DCKSP-B 
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SJMPUE DOWN/UP TEST (USES) 



136 








13* 








14E! 








141 


001630 






142 


301630 


Z12737 


300003 


143 


001636 


012737 


143000 


144 


001644 


012703 


001652 


146 


001650 


300001 




146 


001652 


312706 


000600 


147 


301656 


013730 


000474 


148 


001662 


022730 


301652 


149 


001666 


301401 




150 


301670 


300030 




151 


001672 


313730 


300476 


152 


001676 


322730 


140000 


153 


001702 


301401 




154 


001704 


000000 




156 


001706 






156 


001706 


332737 


343000 


157 


001714 


301345 




158 








159 








160 








161 








162 








163 








164 


301716 






166 


001716 


012737 


300004 


166 


001724 


305037 


177776 


167 


001730 


312737 


301742 


168 


301736 


312733 


001754 


169 


301742 


012706 


000630 


170 


001746 


005737 


303003 


171 


001752 


300030 




172 


301754 


012737 


000006 


173 


001762 


332737 


343030 


174 


001770 


001352 





177570 
177776 



I7757e 



177570 
003034 



000004 
177570 



(TEST 3 SIMPLE DOWN/UP TEST (USER) 

I •»••••*•••••*••••••••••••••••••••••••••*•••••••••••••••»••••••••••••••••• 

TST3I 



2S| 



ISl 



ITEST 4 



MOV 


*3|»#0ISPLAT 


ISET TEST NUMBER 


MOV 


«140300,»#PS 


(SET USER MODE 


MOV 


*2I,R3 


iSET power UP RETURN 


WAIT 




IHAIT FQR THE POWER PAIL 


MOV 


#500 1 SP 


iRESFT SP 


MOV 


»»474,Ra 


iGET RETURN ADDRESS 


CMP 


#21, R0 


jCHECK ADDRESS 


BEQ 


1** 


ISKIP IF OK 


WALT 




lAOnPESS ON STACK IS WRONG 


MOV 


0*476|R0 


(GET OLD PS 


CMP 


«140000,R0 


(CHECK OLD PS 


BEQ 


,*4 


iSKIP If OK 


HALT 




)OLD PS IS WRONG 


BIT 


#SW14,9#SWR 


ILOOP ON TEST? 


BNE 


TST3 


iLOOP TO TST3 



IS I 



MOV 

CLR 

MOV 

MOV 

MQV 

TST 

HALT 

MOV 

BIT 

BNE 



POWER FAIL WITH ODD ADDRESS 



#4,»#DISPLAY ISET TEST NUMBER 

•«PS iSET KERNAL MODE 

*3$,»#4 iSET TRAP VECTOR 

#1$,R3 ISET RETURN ADDRESS FQR POWER FAIL 

*500,SP jRESET STACK 

•#3 (CAUSE ODD ADDRESS TRAP 

lOnO ADDRESS TRAP FAILED 

#6,»#4 (RESET 4 

#SW14,9*SWR (LOOP ON TESTJ 

TST4 (LOOP TO TST4 



MAINDEC-ll-DCKBP-B 



DCKBPB 


Pll 


TST5 


POWER 


176 








176 








177 








176 


301772 






179 


001772 


312737 


000036 


180 


302030 


305037 


177776 


181 


302004 


012737 


332024 


182 


302012 


012733 


002042 


183 


302016 


312706 


303002 


184 


002022 


300001 




186 


002024 


312777 


002032 


186 


302032 


300030 




187 


302034 


312777 


303512 


186 


302042 


312736 


000630 


189 


302046 


012737 


300006 


190 


302054 


013700 


000032 


191 


302060 


005737 


300002 


192 


002064 


301401 




193 


302066 


300000 




194 


302070 


313730 


000000 


196 


302074 


322737 


303512 


196 


002102 


301401 




197 


002104 


300000 




196 


302106 


332737 


343030 


199 


302114 


301326 




200 








201 








202 








203 








234 








206 


302116 






236 


002116 


012737 


000036 


207 


002124 


312737 


302136 


208 


302132 


312703 


002154 


209 


302136 


312706 


300600 


210 


002142 


005037 


177776 


211 


302146 


010037 


173000 


212 


002152 


000000 




213 


002154 


312706 


000600 


214 


002160 


012737 


000006 


216 


002166 


332737 


340000 


216 


002174 


301350 
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177570 
000004 



300004 
177570 



ITEST 5 POWER FAIL IN THE RE5 ZqNE 

(••««*«*««*««««»««*«*»«*<«»**a*«>*«»**«»«*»«»*«*«*«*<*«a«*«»>*««««**t«»««« 

TST5I 



2S| 
7$| 



ISl 



MOV 


#5,e#DlSPLAY 


(SET TEST NUMBER 


CLR 


*#PS 


(SET KERNAL MODE 


MOV 


#2S,»*4 


(SET TRAP REGISTER 


MOV 


«1$,R3 


(SET POWER UP RETURN 


MOV 


#2|SP 


(SET STACK TO RED ZONE 


WAIT 




(WAIT FOR POWER FAIL TRAP 


MOV 


#7J,9UVEC 


(SET UVEC TO HALT 


HALT 




( ILLEGAL TRAP TO 4 


MOV 


#POWDWN,»DVEC 


(RESET DVEC 


MOV 


#500, SP 


(RESET STACK 


MOV 


«6|9«4 


(RESET 4 


MOV 


a#2i R0 


(GET FOR TYPING 


TST 


9i»2 


(IS ? 0K7 


BEQ 


1 ** 


(SKIP IF OK 


HALT 




(NO! 


MOV 


»»0,R0 


(GET FOR TYPING 


CMP 


«P0W0WN,*#!1 


lis ? OK? 


BEQ 


1*4 


(SKIP IF OK 


HALT 




(0 IS WRONG! 


BIT 


JllSW14,»#SW'? 


(LOOP ON TEST? 


BNE 


TST5 


(LOOP TO TST5 



(••*«••••••»••«••••••••••••••••«••••••••••••••»•••••••••••«•«••«••»••«•••• 

ITEST 6 POWER FAIL WITH TIME OUT (KERNAL) 

(•«•••••••••«•«*•••••••«••»••••••••••••«••••••••»*••••••••*•»••«•••••«••»• 

TST6I 



ISl 



MoV 


#6,»#DISPLAY 


(SET TEST NUMBER 


MOV 


|II3S,»III4 


[SET TRAP VECTOR 


MOV 


#1S|R3 


(SET UP RETURN ADDRESS FOR POWER FAIL 


MOV 


#500, SP 


(SET STACK 


CLR 


»#PS 


(SET KFRNAL MODE 


MOV 


R0i»#173000 


(CAUSE A TIMEOUT 


HALT 




(TIMFOUT FAILED 


MOV 


«600,SP 


(SET STACK 


MOV 


#6,»«4 


(RESET 4 


BIT 


#SW14,»#SWR 


(LOOP ON TEST? 


BNE 


TST6 


(LOOP TO TST6 



MAJNDEC-H»DCKBP-B 



DCKBPB, 


Pll 


TST7 




Z17 








2ie 








219 








220 


002176 






221 


0152176 


012737 


000007 


222 


002204 


009037 


177776 


223 


002210 


005067 


001462 


22# 


002214 


012737 


002240 


22$ 


002222 


012706 


000400 


226 


002226 


012703 


002234 


227 


003232 


000001 




22a 


002234 


000200 




229 


002236 


000422 




230 


002240 


012737 


000006 


231 


002246 


005747 


001424 


232 


002252 


001010 




239 


302254 


012777 


002262 


234 


002262 


000000 




235 


002264 


312777 


003512 


236 


002272 


000404 




237 


002274 


012703 


002304 


238 


002300 


000002 




239 


002302 


000000 




240 


002304 






241 


002304 


032737 


040000 


242 


002312 


001331 




243 








244 








245 








246 








247 








248 


002314 






249 


002314 


012737 


000010 


2S0 


002322 


009037 


177776 


251 


002326 


012703 


002346 


252 


002332 


012706 


000500 


253 


002336 


000005 




254 


002340 


000005 




25S 


002342 


000005 




256 


002344 


000774 




257 


002346 


012706 


000500 


258 


002352 


032737 


040000 


259 


002360 


001355 





11/45 POWER F*Jl 



177570 



MACYll,62a 6-N0V.72 18l34 P*CE 6 



001402 
001376 



177570 



177570 



177570 



ITIST 


7 


POWER FAIL IN 


THE VElLOW iONE (KERNAL) 


TST7r 










MOV 


#7,|i«0ISPL*Y 


)SrT TEST NUMBER 




CLR 


»#PS 


iSET KERNAL MODE 




CUR 


FL*0 


(CLEAR THE FLAG 




MOV 


#2S,**4 


ISET SICK TRAP ADDRESS 




MQV 


|II400,SP 


ISET STACK TO YELLOtJ 20NE 




MOV 


«1S,R3 


iStT RryURN ADDRESS FOR POWER FAIL 




W4!T 




iWAIT FOR POWER FAIL 


ISl 


HALT 




IPOWFR FAIL RETURNED TOO SOON 




BR 


4$ 


jSKIP SP CHECK 


2S| 


MOV 


«6i»«4 


IRESET 4 




TST 


rLiC 


lis THE FIRST INSTRUCTION FLAG SET? 




BNE 


5S 


lYFS 




MOV 


#7$,»iJVEC 


ISET UVEC TO HALT 


7li 


HALT 




INOT ENOUGH OR TOO MANY INSTR, EXEC, 




MOV 


#POWDHN,«0VEC 


iSET DVEC 




BR 


4$ 


(GET OUT 


5S| 


MOV 


#4S,R} 


iSET RETURN 




RTI 




IGO TO THE POWER FAIL ROUTINE 




HALT 




NO' MtTUNN HtHt 


4Si 










B T T 




ILOOP 8N TEST? 




BNE 


TST7 


ILOOP TO TST7 


ITEST 


10 


POWER 


FAIL WITH RESETS 


Tstiai 










MQV 


«10i»'#DlSPLAY 


ISET TEST NUMBER 




CLR 


• «PS 


(SET KERNAL MODE 




MOV 




(SET RETURN ADDRESS 




MOV 


«500,SP 


(RESET STACK 


3Sj 


RESET 




(RESETS 




RESET 




(TO WAIT 




RESET 




1 IN 




BR 


3$ 


(LOOP 


ill 


MOV 


msea.sp 


• RESET STiC-K 




BIT 


#SWi4i»*SNR 


(LOOP ON TEST7 




BNE 


TSTIB 


(LOOP TO TST10 



MAINDEC-ll-DCKBP-B 



DCKePB.Pll 


TSTll 


POWER 1 


260 








261 








262 








263 


002362 






264 


002362 


012737 


000011 


265 


002370 


012737 


002402 


266 


002376 


012703 


002426 


267 


002402 


012706 


000500 


268 


002406 


012737 


040000 


iti 


0BZ414 


ISB57 j7 


0000l()J 


270 


002420 


005037 


177776 


271 


002424 


000000 




272 


002426 


012706 


000500 


273 


002432 


012737 


000006 


274 


002440 


032737 


040000 


275 


002446 


001345 




276 








277 








278 








279 








280 








281 


002450 






282 


002450 


012737 


000012 


283 


002456 


012737 


002470 


284 


002464 


012703 


002514 


285 


002470 


012706 


000500 


286 


002474 


012737 


040000 


287 


002502 


010037 


173000 


288 


002506 


009037 


177776 


289 


002512 


000000 




290 


002514 


212706 


000500 


291 


002520 


012737 


000006 


292 


002526 


032737 


040000 


293 


302534 


001345 





11/45 POWER FAIL 



MACY11,620 6«N0V-72 18|34 PACE 7 



177776 



177570 



177776 



ITEST 11 



TStlll 



isi 



ITEST 12 
|**»*«**< 

TStl2l 



3S| 



isi 



MQV 
MOV 
MOV 
MOV 
MOV 
MOV 

CLR 

HALT 
MOV 
MOV 
BIT 

BNE 



••••«••••#•»»»»«»•«•♦«•••»*••»•«»««•##»«»••« 



L 


POWER 


FAIL WITH ODD ADDRESS (SUPERVISORJ 


MOV 


ilLUKDISPLAY 


(SET TEST NUMBER 


MOV 


«3S,«lll4 


(SET TRAP VECTOR 


MOV 


*1S,R3 


(SET RETURN ADDRESS FOR POWER FAIL 


MOV 


«500,SP 


(RESET STACK 


MOV 


#40000, ««PS 


(SET SUPERVISOR MODE 


TST 


• *3 


(CAUSE ODD ADDRESS TRAP 


CLR 


•#PS 


(SET KFRNAL MODE 


HALT 




(ODD ADDRESS TRAP FAILED 


MQV 


«500,SP 


(RESET STACK POINTER 


MQV 


«6,*#4 


IRESET 4 


BIT 


#SW14,*«SWR 


ILOOP ON TEST? 


BNE 


TSTll 


(LOO" TO TSTll 



POWER FAIL WITH TIME OUT (SUPERVISOR) 



«12,»#0ISPLAY (SET TEST NUMBER 
«3S|*«4 
#1S,R3 
#500, SP 
#40000, »#PS 
RZi»«173000 
*«PS 



#500, 5P 
#6,»#4 

«SW14,9«5WR 
T5T12 



(SET TRAP VECTOR 

(SET UP RETURN ADDRESS fna POWER FAIL 
(RESET STACK 
(SET SUPERVISOR MODE 
(CAUSE A TIMEOUT 
(SET KERNAL MODE 
(TIMEOUT FAILED 
(RESET STACK 
(RESET 4 
(LOOP ON TEST? 
(LPOP TQ TST12 



HAINDE.C-11-0EK3P-8 
DCKBPB.Plt TST13 



11/^5 POWER FAIL MACY11,62(8 6-NC1V.72 I8l34 PAGE 8 

POWER PAIL WITH 0D3 ADDRESS (USER) 



294 








295 








296 








297 


002536 






298 


302536 


;5i2737 


000013 


299 


002544 


012737 


002556 


ise 


002552 


212703 


002602 


301 


302556 


012736 


000500 


302 


002562 


012737 


140000 


303 


002570 


005737 


003003 


304 


002574 


005037 


177776 


30b 


002600 


000000 




306 


002602 


312706 


000500 


307 


002606 


012737 


000036 


308 


002614 


032737 


043000 


309 


002622 


001345 




310 








311 








312 








313 








314 








31S 


002624 






316 


002624 


012737 


003014 


317 


002632 


012737 


002644 


3ia 


002640 


012703 


002670 


319 


302644 


012706 


000500 


320 


002650 


012737 


140000 


321 


002656 


010037 


173000 


322 


002662 


005037 


177776 


323 


302666 


000000 




324 


002670 


012706 


000500 


32S 


002674 


S12737 


000006 


326 


002702 


032737 


040000 


327 


302710 


001345 





177570 
003004 



000004 
177570 



177570 
000004 



177776 



000004 
177570 



I •••••••••••••••«»»«••••»••«••••••«•*••«••••••»•••«•*•••»•••«••»*••«•••••• 

(TEST 13 POWER FAIL WITH ODD ADDRESS (USER) 

TST13I 



3Sj 



MOV 


«13,»#DISPLAY 


ISET TEST NUMBER 


MOV 


#3S|«>#4 


ISET TRAP VECTOR 


MOV 


#11, R3 


JSET RETURN ADDRESS FOR POWER FAIL 


MOV 


#500, SP 


JRESET STACK 


MQV 


#140000, »«PS 


ISET USER MODE 


TST 


(i#3 


(CAUSE ODD ADDRESS TRAP 


CLR 


||I#PS 


ISET KERNAL MODE 


HALT 




lODD ADDRESS TRAP FAILED 


MOV 


#500, SP 


IRESET SP 


MOV 


«6,»#4 


jRESET 4 


BIT 


«SWl4»e'#SWH 


JLOOP ON TEST? 


8NE 


TST13 


SLOOP TO TST13 



ISl 



ITEST 14 POWER FAIL WITH TIME OUT (USER) 

I •«*••«••«•••*••••••••••«•••«•••«•••••••••«•<>••••«•••••«••••«•«•••«•«••••• 

TStl4| 



3£| 



IJl 



MQV 


#14,»#DISPLAY 


ISET TEST NUMBER 


MOV 


#3S|»#4 


jSET TRAP VECTOR 


MQV 


«IS,R3 


(SET UP RETURN ADDRESS FOR PnWER FAIL 


MOV 


#500, SP 


jRESET STACK 


MOV 


#140000, a#PS 


ISET USER MODE 


MOV 


R0, •#173003 


iCAUSE A TIMEOUT 


CLR 


»#PS 


jSET KERNAl MODE 


HALT 




iTIMEOUT FAILED 


MOV 


#500, SP 


jRESET STACK 


MOV 


#6,»#4 


jRESET 4 


BIT 


#SWl4,l!i#SWR 


ILOOP ON TEST? 


9NE 


TST14 


ILOOP TO TST14 



MAJNOEC-ll-OCKBP-B 11/45 POWER FAIL MACYll,620 6-N0V-72 18134 PAGE 9 



DCKBPB, 


Pll 


TST15 


KTllC ABORT TEST 








329 










)•••••••••••••«•••••••••«•••••••••••••••••••••••••••«•••••••••»••»•••«•••• 


329 










ITEST 


15 


KTllC 


ABORT TEST 


330 










1 •»••••••••••••••••••••••••••••«••••••••*«••••••««•••••••••••••••••••••••• 


331 


302712 








TSTlSi 








332 


002712 


012737 


003016 


177570 




MQV 


#15,»#DISPLAY 


ISFT TEST NUMBER 


333 


002720 


012737 


303010 


000004 




MOV 


«2S,»#4 


ISCT FOR TIMEOUT 


334 


002726 


005037 


177776 






CLR 


«»«PS 


(SET KERNAl MODE 


336 


002732 


305777 


000746 






TST 


• SR0 


1 IS THERE KTllC? 


336 


002736 


012737 


003002 


000304 




MOV 


«4S,<t#4 


iRESET 4 


337 


002744 


304767 


001154 






JSR 


PCiMAP 


IMAP THE WORID 


338 


002750 


005077 


000740 






CLR 


9KIP0H6 


IMAP U« TO 6 


339 


302754 


012737 


002772 


000250 




MOV 


#3I,»#25?I 


ISET KTllC VECTOR 


340 


002762 


012703 


303004 






MOV 


#1S,R3 


ILOAO PF RETURN 


341 


302766 


305277 


000712 






INC 


• SR0 


ITURN KTllC ON 


342 


002772 


012706 


000500 




3$| 


MQV 


#600, SP 


IZAP STACK 


343 


302776 


005237 


140000 






INC 


S>#143000 


lACCESS VIOLATION 


344 
345 


003002 


000000 






4Si 


HALT 




INO VIOLATION OR TRAP TO 4 


346 


003004 


005077 


030574 




ISl 


CLR 


9SR0 


ITURN OFF KTllC 


347 


003010 


012706 


000500 




2S| 


MOV 


#500, SP 


IMAKE A NEW STACK 


348 


003014 


012737 


000006 


000004 




MQV 


#6,»«4 


IRESET 4 


349 


303022 


032737 


340000 


177570 




BIT 


#SW14,ii>#SWR 


ILOOO ON TEST? 


350 
351 


003030 


001330 








BNE 


TST15 


ILOOP TO TST15 


352 










J •«•«•••••••••••••••»•••»•«••••••«»••*•••••••»••••••••»«*•••»•••«•«••••••• 


363 










ITEST 


16 


MEMORY 


VOLATILITY TEST 


354 










i »«••*»»••••»•••«*••«•••«••««••«•*•••••«••••»*•*••••••••••••»•••«•<•<••»<• 


355 


303032 








TST14! 








356 


303032 


005037 


1777' 6 






CLR 


• «PS 


ISET KERNAL MQDE 


357 


303036 


312702 


000010 






MOV 


#10, R2 


ILOAD COUNT OF TEST ITERAT10^|S 


358 


303042 


004767 


000120 




4$| 


JSR 


PC, LOAD 


ILOAD ALL MEMORY WITH 52525 


359 


303046 


012703 


003066 






MOV 


#1$,R3 


IPPWER FAIL RETURN ADDRESS 


360 


003052 


012737 


000016 


177570 




MQV 


#16,»#DISPLAY 


ISET TEST NUMBER 


361 


303060 


004767 


300246 




2S| 


JSR 


PC, CHECK 


ICHECK FOR THE 52525 


362 


303064 


300775 








BR 


2$ 


iLOOP FOR EVER OR POWER FAIL 


363 


303066 


312706 


300600 




ISl 


MOV 


#500, SP 


iZAP THE STACK 


364 


003072 


004767 


003234 






JSR 


PC, CHECK 


ICHECK ALL MEMORY 


366 


303076 


077217 








SOB 


R2,4$ 


100 IT 10 TIMES 


366 


003100 


Z32737 


043000 


177570 




BIT 


#SW14,»#SWR 


ILOOP CN TEST? 


367 


303106 


001351 








BNE 


TST16 


ILOOP TO TST16 



M*IN0EC-11-DCK9'»-B 11/45 POWER Fa!1, 



DCKBPB 


Pll 




BEll *N3 


SCOPE 


"OUtlNE 


360 


003110 








DONE 1 


36V 


003110 


062767 


000001 


000044 




3719 


003116 


005567 


000036 






371 


00S1ZZ 


032737 


002000 


177570 




372 


003130 


001002 








373 


003132 


000004 


000007 






374 


003136 


313700 


000042 




4$l 


375 


003142 


001404 








376 


003144 


004710 








377 


003146 


000240 








378 


003150 


000240 








379 


003192 


000240 








38g 


003154 


000137 


001002 




3S 1 


381 












382 


003160 


000000 


EI00000 




pcnti 


363 


003164 


000000 






,TBIT| 


394 












365 












386 


0031*6 


016704 


000506 




LOiO! 


387 


003172 


022704 


000006 






386 


003176 


100002 








389 


00320^ 


012704 


0.00006 






390 


003204 


072427 


000015 




Ill 


391 


003210 


062704 


017500 






392 


003214 


012700 


004300 






393 


003220 


016720 


000456 




2S 1 


394 


003224 


020004 








39S 


003226 


001374 








396 


003230 


016704 


000444 






397 


003234 


022704 


000006 






398 


003240 


100401 








399 


003242 


000207 








400 


003244 


004767 


000654 




3S j 


401 


003250 


005277 


000430 






402 


003254 


009204 








403 


003256 


072427 


000007 






404 


003262 


010446 








405 


003264 


012704 


001600 






406 


003270 


010477 


000416 




4S| 


407 


003274 


012700 


140000 






408 


003300 


016720 


000376 




5Si 


409 


003304 


022700 


160000 






410 


003310 


001373 








411 


003312 


062704 


000200 






412 


003316 


020416 








413 




001363 








414 


003322 


005726 








415 


003324 


005077 


000354 






416 


003330 


000207 









MACYll 


620 6-N0V«72 


iSl34 PACE 10 


ADO 


*l,pCNT+2 


lADD 1 TO THE PASS COUNT 


ADC 


PCNT 


iMAKE IT DOUBLE PREC, 


BJT 


«SW10,»«SWR 


IRINS THE BELLT 


BNE 


4S 


iMOl 


TYPE 


• BELL 


IRING THE BELL 


MOV 


»«42|K0 


iSrT MONITOR ADDRESS 


BEQ 


3$ 


1 ir NONE 


JSR 


7i (0) 


iCO TO MONITOR 


NOP 




iSAVF ROOM 


NOP 




1 FOR 


NOP 




JACTII 


JMP 


SiHBEGIN 


(RETURN 


0,0 




IPASS COUNT 







IT BIT FLAG 


MOV 


LlMITiR4 


fGCT BANK COUNT 


CMP 


«6,R4 


lis IT > 67 


BPU 


IS 


ISKIP IF > 6 


MOV 


#6|R4 


iTUOGE IN A 6 


ASH 


«13, ,R4 


iMAKE IT AN ADDRESS 


ADO 


«17500|R4 


iMAKE IT ABS LOADER ADORE 


MOV 


«END,R0 


iLOAD Last address 


MOV 


DATA, (0)+ 


iLOAD The data 


CMP 


R0,R4 


lis IT the end yet» 


BNE 


2$ 


ILOOP UNTIL DONE 


MOV 


LIMIT. R4 


icrT giMK COUNT AGAIN 


CMP 


«I6,R4 


ICHECK AGAIN 


BM] 


3$ 


lYES . SKIP IF KTllC 


RTS 


PC 


INO - EXIT 


JSR 


PC, MAP 


IMAP THE WORLD 


INC 


• SR0 


ITURN 8N KTllC 


INC 


R4 


IGET TO RIGHT ONE 


ASH 


#7,R4 


iSHIFT IT INTO POSITION 


MOV 


H4,.!6) 


iSAVE IT 


MOV 


#1600, R4 


iSET T8 BANK 7 


MOV 


R4,»KIPAR6 


iSET THE SANK 


MOV 


«140000,R0 


IGET FIRST ADDRESS 


MOV 


DATA, (0)* 


ILOAD THE DATA 


CMP 


#160000, R0 


(IS IT THE ENDT 


BNE 


5S 


•LOOP UNTIL DONE 


ADD 


#200, R4 


IBUMP TO NEXT BANK 


CMP 


R4, (6) 


lEND YFT 


BNE 


4S 


iNO - LOOP 


TST 


(b)* 


ICLEAR STACK 


CLR 


•SR0 


ITUHN KTllC OFF 


HTS 


PC 


[RETURN 



MAINDEC 


-ll-DCKBP-B 


11/45 POWER FAIL 


MACYll 


620 6»N0V-72 


18134 PACE 11 


DCKBPB, 


Pll 




BELL AM3 


SCOPE ROUTINE 








417 


003332 


016704 


000342 


CHECK! 


MOV 


LIMIT. R4 


IGET BANK COUNT 


418 


003336 


022704 


000006 




CMP 


#6,R4 


lis IT > 6? 


419 


003342 


100002 






BPL 


IS 


ISKIP IF > 6 


420 


003344 


012704 


000006 




MOV 


#6,R4 


JFUOGE IN A 6 


421 


003350 


072427 


000015 


ISl 


ASH 


#13, ,H4 


iMAKE IT AN ADDRESS 


422 


003354 


262704 


017500 




ADD 


#17500, R4 


jHAKE IT ABS LOADER ADDRESS 


423 


003360 


012700 


004300 




MOV 


#END,R0 


IL8AD LAST ADDRESS 


424 


003364 


026710 


000312 


2S| 


CMP 


DATA, (0) 


jCHECK THE DATA 


429 


003370 


001401 






BEQ 


• ** 


ISKIP I OK 


426 


B03372 


000000 






HALT 




lOATA is WHdNU 


427 


003374 


009720 






TST 




IBUMP R0 


428 


003376 


020004 






CMP 


R0,R4 


lis IT THE END YET} 


429 


003400 


001371 






BNE 


2S 


ILOOP UNTIL DONE 


430 


003402 


016704 


000272 




MOV 


LIMIT, R4 


IGET BANK COUNT AGAIN 


431 


003406 


022704 


000006 




CMP 


«6,R4 


iCHECK AGAIN 


432 


003412 


100401 






BMI 


3S 


lYES - SKIP IF KTllC 


433 


003414 


000207 






RTS 


PC 


iNO - EXIT 


434 


003416 


004767 


000502 


3Si 


JSH 


PC,MAP 


(MAP THE WORLD 


435 


003422 


005277 


000256 




INC 


•SR0 


ITURN ON KTllC 


436 


003426 


009204 






INC 


H4 


IGFT TB RIGHT ONE 


437 


003430 


072427 


000007 




ASH 


#7,R4 


ISHIFT IT INTO POSITION 


438 


003434 


010446 






MOV 


R4,-(6) 


iSAVE IT 


439 


003436 


012704 


001600 




MOV 


#1600, R4 


ISET TO BANK 7 


440 


003442 


010477 


000244 


411 


MOV 


R4,«KIPAR6 


ISET THE BANK 


441 


003446 


012700 


140000 




MOV 


#140000, R0 


IGET FIRST ADDRESS 


442 


003452 


026710 


000224 


5$l 


CMP 


DATA, (0) 


(CHECK THE DATA 


443 


003456 


001401 






BEQ 


,** 


ISKIP 1 OK 


444 


003460 


000000 






HALT 




IDATA !S WRONG 


445 


003462 


2)09720 






TST 


(0) + 


iBUMP R0 


446 


003464 


022700 


160000 




CMP 


#160000, RZ 


lis IT THE END? 


447 


003470 


001370 






BNE 


5S 


ILOOP UNTIL DONE 


448 


003472 


062704 


000200 




ADD 


«200iR4 


IBUMP TO NEXT BANK 


449 


003476 


020416 






CMP 


R4, (6) 


lEND YET 


450 


003500 


001360 






BNE 


4S 


iNO - LOOP 


451 


003502 


005726 






TST 


li)* 


ICLEAR STACK 


452 


003504 


005077 


000174 




CLR 


»SR0 


iTURN KTllC OFT ■ 


453 


003510 


000207 






RTS 


PC 


IRETURN 



MAINBEC-li-DeKBP^B 



H?45 POWER FAIL 



DCKBPB.Plt 




POWER 


"•AIL ROUTINE 




454 


003512 


312767 


177777 


300156 


POWQWN 1 


MOV 


45Si 


003520 


005067 


300152 






CUR 


456 


003524 


312777 


303652 


000132 




MOV 


457 


003532 


011667 


300124 






MOV 


458 


003536 


022736 


330440 






CMP 


459 


003542 


100402 








BMI 


460 


003544 


312736 


300500 






MOV 


461 


003550 


310046 








MOV 


462 


303552 


310146 








MOV 


463 


003554 


010246 








MOV 


464 


003556 


0103*6 








MOV 


465 


IC O 10 


310446 








MQV 


466 


003562 


310546 








MQV 


467 


003564 


013667 


330104 






MOV 


468 


003570 


316730 


175204 






MOV 


469 


003574 


377031 








SOB 


470 


003576 


ei27''7 


303606 


300060 




MOV 


471 


003604 


300030 








HALT 


472 












473 


003606 


312777 


303656 


000054 


~ U W U r 1 


MOV 


474 


303614 


014736 


300054 






MOV 


475 


003620 


316730 


175154 






HOV 


476 


303624 


377001 








SOB 


477 


303626 


312605 








MOV 


478 


003630 


312604 








MOV 


479 


003632 


312633 








MQV 


480 


003634 


312602 








MOV 


481 


003636 


312631 








MOV 


482 


003640 


313600 








MOV 


483 


003642 


312777 


303512 


000020 




MOV 


484 


003650 


300113 








JMP 


465 














486 


003652 


300030 








HALT 


487 


003654 


000776 






BR 


488 














489 


303656 


000030 








HALT 


490 


303660 


000776 








BR 


491 














492 


003662 


300030 






ERROR i 





493 














494 


303664 


300024 


003026 




UVECI 


24 1 26 


495 


003670 


300024 


300026 




DVECI 


24,26 


496 


303674 


300000 






SAV6r 


3 


497 


003676 


300030 






FLiCi 


3 


498 


003700 


300030 






LIMITI 





499 


003702 


052525 






DAtAI 


52525 



MACY11,620 6«N0V»72 18|34 PACE 12 



«-i.FLA5 
FLAG 

#ILLUP,»UVEC 
(SP) (ERROR 
#440, SP 
1*6 

#503, !>P 

RB,-(6) 

Rl,-(6) 

R2,-(6) 

R3,>(&) 

R4,-t6) 

R5,.(6) 

SP,SAV6 

FACT0K(R3 

R0, , 

#POWUP,»UVEC 



#ILLDWN,»DVEC 

SAV6,SP 

FACTOR, R3 

R2i , 

(6)<i-,R5 

(6>+,R4 

(6>+,H3 

(6)+,H2 

(6)+,Kl 

(6)'i',R0 

#P0WDWN,9DVEC 

tR3) 



■ •2 



i"2 



IFIHST INSTRUCTION FLAG 

INOW CLEAR IT 

lIF TOO FAST 

jSET THE ERROR ADDRESS 

(YELLOW OR RED? 

lN8 

ISET EMERGENCY STACK 

IPUT 

(THE 

(REGISTERS 

»0N 

)THE 

(STACK 

(SAVE THE STACK POINTER 
(SET TIME FACTOR 
(MOM WAIT 

(RESET THE UP VECTOR 
(WAIT FOR POWER DOWN 

(SET TOO FAST DOWN VECTOR 

(RESET SP 

(SET TIME FACTOR 

(WAIT 

(TAKF 

(THE 

(REGISTERS 
(FROM 
(THE 
(STACK 

(RESET THE DOWN VECTOR 
(JUMP INDIRECT TO R3 

(POWER UP BEFORE POWER DOWN COMPLETE 
(LOCK UP THE HALT 

(PPWERED DOWN BEFORE UP COMPLETE 
(LOCK UP THE HALT 

(RETURN ADDRESS FROM POWER FAIL 

(UP ADDRESS PAIR 
(DOWN ADDRESS PAIR 

(SOME Place to put the sp 

(1 INSTRUCTION DOWN FLAG 
(TOP OF MEMORY 

(WHAT IS TO BE WRITTEN INTO MEMORY 



MAJNDEC-ll-DCKBP-B 11/45 POWER FAIL MACY11,620 6"N0V«72 i8!34 PAGE 13 



DCKBPB.Pll 




POWER FAIL ROUTINE 








500 


303704 


177572 






SR0i 


177572 




(KTllC - MEMORY MANAGEMENT 


501 


3B3706 


172340 






KIPAR0I 


172340 






502 


303710 


172300 






KIPDR0I 


172300 






503 


303712 


172354 






KIPAR6( 


172354 






504 


303714 


172314 






KIPDR6! 


172314 






505 


303716 


172356 






KIPAR7I 


172356 






506 


003720 


172316 






KIPDR7I 


172316 






607 


303722 


177640 






U1PAR0( 


177640 






538 


303724 


177630 






UIPDR0I 


177630 






509 


303726 


177656 






UIPAR7I 


177656 






510 


303730 


177616 






UIPDR7I 


177616 






511 










! 


SOCTAL 


OCTAL 


TYPEOUT ROUTINE 


512 
613 










(THIS ROUTINE 


IS USED TO TYPE 


AN OCTAL NUMBER ON THE TTY, fT WILL TYPE 


614 










)ALL 6 


CHARACTERS, SUPPRESS LEADING 2ER0ES, TYPE AN 18 BIT ADDRESS, OR TYPE 


616 










ITHE 16 


BITS, 


IT IS CALLED VIA 


THE DUMP, SOUMP, OUMPie, OR BITYPE MACRO'S, 


516 
517 


003732 


012767 


170101 


003140 


eiTYPIl 


MOV 


«170101, ,PR 


(SET BIT FLAG ANS 16, CHARACTER COUNT 


518 


303740 


000411 








BR 


,PTIT 


(NOW TYPE JT IN BIT FORM 


519 


303742 


112767 


000001 


303130 


PRiNTRi 


HOVB 


#1, ,PH 


(SET ZERO FILL SWITCH 


520 


303750 


300432 








BR 


,♦6 


(SKIP 


521 


003752 


005067 


000122 




PRlNTSl 


CLR 


,PR 


(SU^'RESS LEADING ZEROi'S 


622 


303756 


112767 


177772 


300115 




MOVB 


#•6, ,PR+1 


(SET COUNT 


623 


303764 


310446 






,PTIT| 


MOV 


R4,-(6) 


(SAVE R4 


524 


003766 


312704 


304102 






MOV 


#,PR*2,R4 


(SET POINTER TO FIRST ASCII CHAR, 


525 


003772 


105014 








CLRB 


t4) 


(CLEAR FIRST BYTE 


526 


003774 


300411 








BR 


,PRF 


(ROTATE FIRST BIT 


627 


003776 


105014 






iPRLI 


CLRB 


(41 


(CLEAR BYTE OF CHARACTER 


628 


004000 


332767 


303130 


003072 




BIT 


#100, ,PR 


(BIT TYPING MODE? 


629 


304006 


001004 








BNE 


,PRF 


(YES - SKIP 2 ROTATES 


530 


004310 


006105 








ROL 


TTY 


(ROTATE BIT INTO C 


531 


004012 


106114 








POLB 




(PACK IT 


632 


004B14 


006105 








ROL 


TTY 


(ROTATE BIT INTO C 


533 


004016 


106114 








ROLB 


(4) 


(PACK IT 


534 


004020 


306105 






,PRFl 


ROL 


TTY 


(ROTATE BIT INTO C 


535 


304022 


106114 








ROLB 


(4) 


(PACK IT 


536 


304024 


105714 








TSTB 


(4) 


(IS IT HERO? 


537 


304026 


301402 








BED 


,*f> 


(SKIP INC 


538 


304030 


105267 


300044 






INCB 


,PR 


(SET FILL SWITCH 


539 


304034 


105767 


000040 






TSTB 


,PR 


(CHECK FILL SWITCH 


540 


004040 


001402 








BEQ 


1*6 


(SKIP 9ITSET 


641 


004042 


152724 


000060 






eiSB 


#'0, !4)+ 


(MAKE INTO ASCI I CHAR 


542 


304046 


105267 


300027 






INCB 


,PR+1 


( INC COUNT 


543 


304052 


301351 








BNE 


,PRL 


(REPEAT 


544 


004054 


322704 


004102 






CMP 


#,PR*2,R4 


(EMPTY BUFFER? 


546 


004060 


301002 








BNE 


1*6 


(SKIP IF NOT 


546 


004062 


112724 


000060 






MOVB 


#' 0, (4)+ 


(LOAD 1 ZERO 


647 


004066 


105014 








CLRB 


(4) 


(NULL TERMINATOR 


548 


304070 


000004 


004132 






TYPE 


1 |PR+2 


(TYPE IT 


549 


304074 


312604 








MQV 


(6)+,H4 


(RESTORE R4 


550 


004076 


000207 








RTS 


PC 


(RETURN 


551 


004100 


300012 






,PRI 


,SLKW 


12 


(COUNT, SWITCH, AND OUTPUT BUFFER 



M*INOEC-1X-OCKBP-B 



11/49 POWER F*JL 



0CK6PB, 


,Pll 




OCTAL DUMP OF 1 


558 


004124 


012777 




17 fOU 


553 


004132 


012777 


a Y Y A a A 


177550 


554 


004140 


012777 


000200 


177544 


555 


904146 


012777 


077406 


177540 


556 


004154 


012777 


n a T A Dl Dl 
19 69701010 


177534 


557 


004162 


012777 


077406 


177530 


558 


004170 


000237 






559 










560 










561 










562 










563 










564 










565 










566 










567 










566 










569 


004172 


010546 






570 


004174 


017605 


000002 




571 


004200 


032705 


177400 




972 


004204 


001004 






573 


004206 


010567 


000064 




574 


004212 


012705 


004276 




975 


004216 


105715 






576 


004220 


001406 






677 


004222 


112537 


177966 




576 


004226 


105737 


177564 




579 


004232 


100375 






538 


334234 








981 


004236 


017646 


000002 




982 


004242 


062766 


000002 


000004 


583 


004250 


022666 


000002 




984 


004254 


001006 






685 


004256 


062705 






586 


004262 


042705 






587 


004266 


010566 


000002 




586 


004272 


012605 






589 


004274 


000002 






590 


004276 


000000 






591 


004300 


000000 






%92 










993 




000001 







MACYll, 


,620 6-N0V-72 : 


MOV 


*0i»KiPAR0 


MQV 


11177406, •k:pOR0 


MOV 


«200i*KIPAR6 


MOV 


ill77406|»KiPDR6 


MOV 


#760e,»KlPAR7 


MOV 


#77406|I'K1PDR7 


RTS 


PC 



iSt34 PACE 14 



STVPE 



MESSAGE TYPEOUT ROUTINE 



(THIS ROUTINE IS USE TO TYPE ASCII MESSAGES ON THE TTY, THE 
ICAIL CAN BE ONE OF 3 FqRmSi i) "TYPE ,ADR" - TYPES THE 
(MESSAGE STARTING IN LOCATION "ADRI", 2) "TYPE .CHAR" . TYPES 
(THE ASCII "CHAR", AND 3) "PRINT «15><12>"MESSAGE''> • TYPES 
(THE MESSAGE WHICH IS INLINE ASCII', 



lOTSi 



ISl 



2S| 



3S| 

,TYPEI 
ENOI 

.END 



MOV 

MQV 

BIT 

BNE 

MOV 

MOV 

TSTB 

BEQ 

MOVB 

TSTB 

BPL 

BR 

MQV 

ADO 

CMP 

BNE 

ADD 

BJC 

MOV 

MQV 

RTI 



TTY, .(6) 
•2{6),TTY 
#177400, TTY 
IS 

TTY, .TYPE 
», TYPE, TTY 
(TTYJ 
2S 

(TTY)*, •#177566 

•#177664 

■ <"* 

^ S 

•2<6),-(6) 
#2,4(6) 
(6)+, 2(6) 
3S 

#2, TTY 
#1,TTY 
TTY, 2(6) 
(6)*, TTY 



ISAVE TTY 

(GET ADDRESS TO BE TYPED 

(IS IT A TYPEMT 

(NO 

(GET THE CHARACTER 
(FUDGE THE ADDRESS 
(TERMINATOR? 
(GET OUT IF SO 

(LOAD AND TYPE THE CHARACTER 
(15 THE PRINTER READY 
(WAIT UNTIL IT IS 
;5ET Tur fjrxT rui^BiLrrra 

(GET ADDRe'sS TO BE^TYPED 
(ADD 2 TO THE ADDRESS 
(IS IT ,*27 
(NO 

(ADD 2 TO THE ADDRESS 
(BACK UP TO AN EVEN BYTE 
(RESTORE ADDRESS 
(RESTORE TTY 
(RETURN 

(CHARACTER TYPE LOCATION 



MAINDEC 


-H-DCKBP-B 


11/45 1 


"OWER FAIL 


DCKBP8, 


Pil SYMBOL 


TABLE 




BECJN 


001002 


BELL 


« 020007 


DATA 


003702 


DJSPLA 


I 177570 


DOSES 


001042 


DVEC 


003670 


FACTOR 


001000 


FLAG 


003676 


ILLUP 


003652 


lOTS 


004172 


K JPAR7 


003716 


KIPDR0 


003710 


LIMIT 


003700 


LOAD 


003166 


N 


■ 000017 


PC 


■X000007 


powup 


003606 


PRINTH 


003742 


QQ 


■ 000001 


R0 


EX000000 


R3 


(X000003 


R4 


■X000004 


SCOPE 


■ 000240 


SP 


■X000006 


5W10 


I 002000 


SMll 


I 004000 


SW14 


s 040000 


SW16 


1 100000 


TSTl 


001444 


TST10 


002314 


TST13 


002536 


TST14 


002624 


TST2 


001542 


TST3 


001630 


TST6 


002116 


TST7 


002176 


TYPEIT 


001152 


UIPAR0 


003722 


UIPDR7 


003730 


UVEC 


003664 


,PRF 


004020 


,PRL 


003776 


,TYPE 


004276 




= 004302 
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31 TYPS 


003732 


CHECK 




003332 


DOCORE 


001120 


DONE 




003110 


END 


004300 


ERROR 




003662 


HLT 


I 104000 


ILLOWN 




003656 


KIPAR0 


003706 


KIPAH6 




003712 


KIPDR6 


003714 


KIPDR7 




003720 


MAP 


004124 


MES 




001324 


PCNT 


003160 


POWDUN 




003912 


PRINTS 


003792 


PS 


1 


177776 


Rl 


1X000001 


"2 


■X0B0Z0Z 


R5 


■X000005 


SAV6 




003674 


SR0 


003704 


SMR 




177S70 


SW12 


* 010000 


SH13 


s 


020000 


swe 


< 000400 


SW9 


1 


001000 


TSTll 


002362 


TST12 




002450 


TST15 


002712 


TST16 




003032 


TST4 


001716 


TST5 




001772 


TTY 


<X000005 


TYPE 


s 


200004 


UIPAR7 


003726 


UIPDR0 




003724 


.BIT 


' 042000 


■.PR 




004100 


.PTIT 


003764 


■.TBIT 




003164 



ERRORS OEtECtED( 



